-- stack: in.1
-- format: 10 (HyperCard 2)
-- flags: 0x5400 (can't delete, can't peek)
-- protect password hash: 361761537
-- maximum user level: 5 (scripting)
-- window: Rect(x1=592, y1=55, x2=1008, y2=295)
-- screen: Rect(x1=0, y1=0, x2=1024, y2=768)
-- card dimensions: w=416 h=240
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2737
-- card count: 1
-- first card id: 4482
-- list block id: 3044
-- print block id: 3986
-- font table block id: 3424
-- style table block id: 3300
-- free block count: 2
-- free size: 43488 bytes
-- total size: 90112 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x02018000
-- compacted by hypercard version: 0x02018000
-- modified by hypercard version: 0x02018000
-- opened by hypercard version: 0x02018000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x8462F194
----- HyperTalk script -----
-- on openbackground --merryxmas
-- on closebackground --merryxmas
-- on idle --merryxmas
-- •••    NE PAS MODIFIER LES 3 LIGNES PRECEDENTES    •••
-- ••• CECI EST LE VACCIN CONTRE LE VIRUS “MERRYXMAS” •••
-------------------------------------------------------------------
on openStack
  global PrevUseLev
  put "À propos" into theWindow
  if videoDepth() ≤2 then put "À proposNB" into theWindow
  picture theWindow,resource,shadow,false,8
  show window theWindow at "0,-20"
  put the userlevel into PrevUseLev
  repeat 2
    play "4"
  end repeat
  stackConfig
  AddColor install
  openCard theWindow
end openStack
on openCard theWindow
  Send colorMe to this card
  if there is a window theWindow then close window theWindow
  pass openCard
end openCard
on closeCard
  lock screen
  pass closeCard
end closeCard
on colorMe
  AddColor colorCard,stamp,30
end colorMe
on suspend stack
  clearConfig
end suspend stack
on resumeStack
  stackConfig
end resumeStack
on closeStack
  put empty into WList
  AddColor remove
  clearConfig
  pass closeStack
end closeStack
on stackConfig
  set userlevel to 5
  reset menuBar
  repeat with i = 14 down to 5
    delete menuItem i of menu 2
    delete menuItem i of menu 4
  end repeat
  delete menuItem 1 of menu 2
  repeat with i = 8 down to 3
    if i ≠ 4 then delete menu i
  end repeat
  if there is a menu "Color" then delete menu "Color"
  set cantDelete of this stack to true
  set cantAbort of this stack to false
  set cantPeek of this stack to true
  set blindTyping to false
  set userLevel to 1
  set cantModify of this stack to true
end stackConfig
on clearConfig
  global PrevUseLev
  set userlevel to PrevUseLev
  set cantModify of this stack to false
  reset menuBar
end clearConfig
on doMenu x,y
  if y = "File" then
    if x = "Protect Stack..." or x = "Delete Stack..." then exit doMenu
    else pass doMenu
  else if x contains "Info" then exit doMenu
  else pass doMenu
end doMenu

function videoDepth
get screenRect()
put (item 3 of it )-(item 1 of it) into widthScreen
if widthScreen ≤ 512 then return 0
get getMode()
if item 1 of screenRect() = 0 then put item 2 of line 1 of it into whatDepth
else repeat with i = 2 to number of lines of it
if item 6 of it = widthScreen then put item 2 of line i of it into whatDepth
end repeat
if whatDepth is not in "1,2,4,8,16,32" then put 0 into whatDepth
return whatDepth
end videoDepth